COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C*** TO CONVERT VERY OLD FORMAT MS FILES TO 1980 FORMAT.  LOAD WITH MSSIO[NEW,LCS]
C00004 ENDMK
C⊗;
C*** TO CONVERT VERY OLD FORMAT MS FILES TO 1980 FORMAT.  LOAD WITH MSSIO[NEW,LCS]
	DIMENSION A(3000),B(400),R(17),RR(1),RRR(19)
	EQUIVALENCE (RRR,R),(NR,RRR(19)),(MR,RRR(18))
1	FORMAT(' TYPE NAME '$)
2	FORMAT(A5)
3	TYPE 1
4	ACCEPT 2,NAM
5	CALL IFILE(1,NAM)
	CALL PUTEXT(NAM,'BAC')
6	READ(1,END=100)M,N,(B(L),L=1,M+1),(A(L),L=1,N)
8	READ(1)R
	NR=N
	MR=M
	DO 20 K=17,9,-1
	IF(ABS(R(K)).GT.600)R(K)=100
20	R(K)=R(K-1)
	DO 10 K=1,M
	L=B(K)+2
	IF(A(L-1).NE.16)GO TO 12
	A(L+4)=A(L+4)*100.0
	A(L+5)=A(L+5)*100.0
	A(L+6)=A(L+6)*100.0
C UPDATES TEXT CODE
12	A(L)=A(L)+3
C SHIFT UP STAFF NUMBERS BY 3
10	CONTINUE
11	FORMAT(F9.3)
9	CALL EXTOUT(RRR,128)
  	CALL EXTOUT(A,N)
100	CALL FINEXT
	GO TO 3
	END